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Boy! doesn't time fly vten you are having fun, or 
when you have a lot of work to do. It seems only 
yesterday that we were putting together the last 
newsletter and I had sane news about the CoCoFest 
held in Chicago USA early May, 

I was indeed very lucky to have the opportunity to 
meet so irany interesting people in Chicago and to 
make seme new friends. Arrangements were made to 
exchange information and newsletters with a couple 
of the U.S. groups, and since our last newsletter we 
have received the Apr-May issue of "MM)", the 
newsletter of the U.S. OS-9 Users Group and also the 
May-Jun issue of "CoCol23", the publication of the 
Glenside Color Computer Club, Illinois. 



"cooperation" in the exchange of information between 
the 0S9 usergroups around the world. 

I have just read a message which Peter left on 
Delphi for me dated June 15th. Ooops! sorry about 
that Peter :-). Anyway, like myself, Peter has 
obviously been busy since Chicago and things are now 
starting to move again. 

I would be very grateful for any ideas or 
suggestions from our members which would support the 
exchange of OS-9 information between usergroups 
around the world. I would in turn pass your 
suggestions along to Peter Tutelaers in the 
Netherlands, 



K7ID Article 

A MJED article by Chris Perrault deals with two 
things. The first is an old thought revived, 
encouragement to upgraded OS-9 Level II to version 
3.0. The second is to form a Level II Standards 
Comnittee, Chris correctly points out that Level II 
has matured since its release with many module 
patches, rewrites and general hacks which have 
resulted in a system which has really begun to let 
its true potential shine. All this however has the 
result that many different systems are in use with 
possible inccnpatibility and confusion to users and 
programners . Chris goes on to suggest that a 
version 3.0 could be made from the original issue 
system with agreed standard patches etc. The end 
result would be a Level II version 3.0 OS-9 system 
which was a known quantity and which would perform 
predictably with any prograimie or utility. 



So what are your thoughts? 
3.0 upgrade be atteirpted? 
"standards" to be selected? 



Should such a Version 

And if so, hew are the 

A standards ccnmittee?? 



Oie of the very first questions to be addressed is 
that of; by what means is the data to be 
transferred? How is the material to be controlled? 
Who is responsible? Where does the "Cooperation" 
fit with existing usergroups and networks, such as 
the OCN (0S9 Community Network) which widely uses 
the Fido network for messages etc? 

We really need to answer only a few questions. How? 
Where? When? and Why? - that should cover it. 

FATTKn TFST 

Now I must adnit to having failed the test. What am 
I on about? Well I received a letter today from the 
president of the U.S. OS-9 Usergroup in which he 
expressed his dissappointment at the lack of 
response from his attenpt to initiate an exchange of 
news articles betvreen user groups. 

Jim DeStafeno mailed seme of his newsletter articles 
on disk to Japan, Netherlands, Germany, Switzerland 
and Australia (c/o myself) late in May. 



We would be happy to pass on your thoughts and 
input . 

Glenside CoCol23 Artilce 

As one might expect, the May- June issue of this 
newsletter included a detailed CoCoFest report. In 
this report by Allen Huffman he praised the 
"International 0S9 Consortiuni Discussion" which was 
organized by Peter Tutelaers, EURDS-9. I must 
confirm that this session was very well attended and 
a lot of interest shewn in the concept of a 



Sane five weeks later, apparently NO replies. O.K. 
so I have failed the test, sorry Jim, I will fix. 

We shouldn't have to rely on people like Jim to keep 
pushing things along, so I will do my bit. 

I know that each of you can contribute something in 
the way of infonnation, ideas, or questions. Please 
send these to us now! 

Until next time. Cheers, Gordon. 
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Get Next Wiiklow 
a progranme fron our PD archive 



'Getnw' is a subroutine which is to be lised with Ron 
Lannlardo's 'shell+', v2.1. 'Shell+' is available in 
the database here. 'Getnw' is a subroutine which 
retrieves the name of the next available window and 
puts it into a 'shell+' subvariable. 

I have my system set up to open two or three windows 
on startup. I like to run larger programs from 
shell scripts - especially those which diddle 
pallette colors. The script opens a window, starts 
the application, and closes the window when the 
application is done. This way, my original windows 
remain available while the application is running, 
dnd their colors don't get changed to sore oddball 
combination. I keep the scripts in my execution 
directory with the executed attribute set. 
Before 'shell+' and 'getnw', the limitation to this 
scheme was that each application had to be hardcoded 
to a specific window. If the '/w' wildcard window 
name were used in the script, the shell had no way 
of knowing which window was actually used, making it 
difficult to get rid of it, or to manipulate output 
to it from the script. 

The format for 'getnw' is: 

getnw n 

where n is an integer, 0-9. 'Getnw' will get the 
name of the next available window and store it in 
'shell+* subvariable n. It can then be accessed by 
'shell+' by using "%7on". (See 'shell+' 
dociinentation for details of this.) A bad value of 
n will just do nothing, without any error report. 
If another window is unavailable, a #221 error gets 
passed back to 'shell+', which will report it. 

As an exanple, here is the script file I use to run 
wizpro. 

* script file to execute wizpro in next window 

getnw 

unlink getnw 

wcreate HO -s=l 40 24 2 4 4 

merge /dd/sys/stdfonts 

prompt Autolog file ([enter] = none) — 

var.l 

display 02 2d 2c 05 20 lb 21 </l > %%0 

echo Starting Wizpro >^%0 

ex /dd/ccm/pro/cmds 

(wizpro %1 0»%%0;deiniz %%0)& 

The only potential problem here is if another 
process were to grab off the window inbetween the 



'getnw' call and the 'wcreate' call — an unlikely 
possibility. If this were to happen, no damage 

would be done anyway the 'wcreate' call would 

just result in an error and abort the script. 

Enjoy, and if any questions, ask. 

Dennis Skala 

CIS: 73177,2365 
Delphi: DENNYSKAIA 

Here's the source code (in Assembler for a change!) 



getnw - gets the name of the 
next available window 
into a shellplus subvariable 



Use: getnw n where n= to 9 * 

is the subvar into * 
which the name is to be put * 



No error is returned for a bad 
parameter, and no action is taken. 
System Call errors are passed back 
to shellplus. 



Copyright 1989 by Dennis Skala 
All rights reserved. May be freely 
distributed so long as this notice 
is left intact. 



****dbWWrtbhV*SWWt*ibt*^WWWc*^^ 





nam getnw 




ifpl 




use /dd/defs/os9defs 




endc 


shellsub 


set $50 


rev 


set 1 


attr 


set reent+rev 


type 


set shellsub+objct 




mod len, name, type, attr, star t,0 


name 


fcs /getnw/ 




fcb rev 


win 


fee "/w" 




fcb $0d cr 



start 



equ 
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si 



s2 
<cr> 



tl 



Ida ,x+ get char window 

cmpa #' leading space is CK 

beq si cl 

pshs a save char for now 

Ida ,x+ mast not be another char before 

cmpa #* space is CK 

beq s2 wl 

cmpa #$0d most be <cr> here 

beq tl 

puis a clean stack 

bra errout and exit without error 

puis a retrieve character rl 

suba #$30 ASCII to number 

bmi errout invalid entry r2 

aipa #9 

bhi errout invalid entry 

Idb mi 

mul calculate offset to variable area 

leax d,u 

Ida #•/ 

sta ,x+ name starts with / errout 

tfr x,y save the pointer for later 

Ida #write. len 

leax win,pc 

os9 i$open open path to next available 



bcc wl 

leay -l,y if error 

Ida #$0d clear the entry 

sta ,y 

bra errout and exit without error 



Idb #ss.devnni 

tfr y,x point to subvar 

os9 i$getstt get the name 

bcc rl 

os9 i$close if error 

bra cl 

os9 i$close close the path 

bcs cl if error 

Ida ,y+ read the name 

bpl r2 if not at end 

leay -l,y last char position 

anda #%01111111 strip off hi bit 

sta ,y+ replace it 

Ida #$0d 

sta ,y end with a <cr> 

rts no action on error 

emod 

equ * 

end 



CKXxxxxxxx3CXXXXXXXXX)oooooooooo 



Floppy to Hard to Floppy 
Backi^ Utility 



FW (Floppy to Hard to Floppy disk) Backup Utility 

This utility was written because I hate to 
waste my time swapping floppy disks during a single 
drive Backup, Since I have a hard drive as well as 
a floppy drive, I decided to write a utility that 
writes the source floppy disk's entire contents to a 
hard disk file, prompts to swap in a formatted 
destination floppy disk, and writes the hard disk 
file out to the destination floppy disk. 

By turning off the verify during the 
destination disk write and performing a verify pass 
afterward I was able to reduce the entire back up 
time to less than 7 minutes for a 720K disk on my 
system. Your time will vary depending on the speed 
of your hard and floppy disk I/O and the size of the 
floppy disk. 

This program requires the *SysCall' subroutine 
which comes with Basic09 in the Color Conputer 3's 
Level 2 OS-9 package. The 'SysCall' subroutine must 
be in your current execution (CbOS) directory, or in 



memory. If you do not have the 'SysCall' 
subroutine, it is possible to edit the Basic09 
source and remove the two lines that reference 
* SysCall'. Save the edited source and then make a 
new packed version of FHF in your current exec t ion 
(CMOS) directory. If you want to maintain the 
highest possible back up speed, you should manually 
turn off the write verify before running the 
modified FHF program. You should turn the write 
verify back on after the modified FHF program is 
finished. 



Here are the instructions to get FHF ready to 



run: 



1) Extract the packed Basic09 'Fhf ' module from 
•fhf.ar'. 

2) Copy 'Fhf' to your current execution (CMDS) 
directory. 

3) Copy 'RunB' to your current execution (CMDS) 
directory if it's not already there. 

4) Copy 'SysCall' to your current execution (CMDS) 
directory if it's not already there. 
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Here are the instructions to run FHF: 

1) Type 'Fhf and press [ENIER] , 

2) FHF will ask you for the source/ destination 
drive. Type in the floppy drive name (you mist 
include the slash) and press [ENTER] . 

3) FHF will ask you for the tenporary storage 
drive. Type in the hard drive name (you mist 
include the slash) and press [ENTER] . 

4) FHF will print out the information you just 
gave, and ask you if it's correct. If the 
information is correct, type *Y' or 'y' and 
press [ENTER]. If the information is incorrect, 
type *N' or 'n' and press [ENTER]. If you wish 
to quit, type 'Q' or 'q' and press [ENTER]. 

5) If the information is correct, FHF will ask you 
to insert the destination disk into the floppy 
drive and press [ENTER] when ready. Once you do 
this, FHF checks the destination disk for size 
and ID. 

6) FHF then asks you to insert the source disk into 



the floppy drive and press [ENTER] when ready. 
Once you have done this, FHF checks the source 
disk's size. If the source and destination 
disks are not the same size, FHF will abort. 

7) FHF copies the entire source disk to a temporary 
file on the hard drive. When that is done, FHF 
will ask you to insert the destination disk into 
the floppy drive and press [ENTER] when ready. 
If the destination disk is not the same as 
before, FHF will prompt you again. 

8) Once FHF has copied the temporary hard disk file 
to the destination disk, it will delete the 
temporary file and verify the destination disk 
write. Any verify errors encountered will be 
reported to the standard error path. 



I hope you find 
Isted CIS 76625,2273 



this utility useful! Bruce 



Here's the sourcecode in Basic09 



PROCEDURE FHF 

(■>'< FHF (Floppy to Hard to Floppy disk) Backup Utility *) 

(* written by Bruce Isted CIS 76625,2273. *) 

(* Released to the Public Domain 87/08/02 *) 

(* for non-comiercial use only. *) 

BASE 

DIM callcode,fd_path,hd__path,options(32),size_bytes(3):BYTE 

DIM disk_id(2):INIEGER 

DIM chunk_total , count , dest_size , error_count , src_size :REAL 

DIM answer :STRING[1] 

DIM fd_nam,hd_nam:STRING 

DIM sector:STRING[256] 

DIM chunk:STRING[8192] 

TYPE registers=cc,a,b,dp:BYIE; x,y,u:INIEC3ER 

DIM regs: registers 

error_count :=0 

REPEAT 

PRINT 

INPUT "Source/destination drive? (EG; 

INPUT "Tenporary storage drive? (EG: 

PRINT 

PRINT "Source/destination drive is "; fd_nam; ".' 

PRINT "Temporary storage drive is "; hdjiam; "." 

INPUT "Is this correct? (Y/N/Q) ", answer 

PRINT 

UNTIL SUBSTR(answer,"YyQq")<X) 

IF SUBSTR(answer,"Qq")<00 THEN 

PRINT 

END 

ENDIF 

PRINT "Insert destination disk into "; fd_nam; 

INPUT " and press [ENIER] when ready. ", answer 

OPEN #fd__path,fd_nan^"(a":READ 

GET #fd_j»ath,size_bytes 

SEEK /Afd_j5ath,14. 



/DO) ",fd_nam 
/HO) ",hd nam 
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GET #fd_path,disk_id(0) 

dest_size ; =size_bytes (0)*65536 . +size_bytes(l )*256 . +size_bytes ( 2 ) 

CLOSE #f djjath 

PRINT "Insert source disk into "; fd_nam; 

INPUT •* and press [ENTER] when ready. ", answer 

OPEN #fdjDath,fd_namf"@":READ 

GET yAfdj)ath,size_bytes 

stc_size:=size_bytes(0)*65536.+size_bytes(l)*256.+size_bytes(2) 

IF src_sizeOdest_size THEN 

PRINT 

PRINT "FHF aborted: source and destination disks don't match." 

PRINT 

END 

ENDIF 

CREATE #hd_path , hd_nanH-f d_namf" . tenp" lUPDATE 

SEEK #fd_path,.0 

chunk_total :=INr(src_size/(SIZE(chunk)/256) ) 

FOR count=l TO chunk_total 

GET #fd_j)ath, chunk 

PUI #hd_path, chunk 

NEXT count 

WHILE N0T(EOF(#fd_j)ath)) DO 

GET #£d_path, sector 

PL7I #hd_j)ath, sector 

ENDWHILE 

CLOSE #f djjath 

REPEAT 

PRINT 

PRINT "Insert destination disk into "; fd_nam; 

INPUT " and press [ENTER] when ready. ", answer 

PRINT 

OPEN #fdj3ath,fd_namf"@":READ 

GET #fdjDath,size_bytes 

SEEK #fd_jiath,14. 

GET #fdjDath,disk_id(l) 

CLOSE #f djjath 

src_size : =size_bytes(0)*65536 . +size_bytes( 1 )*256 . +size_bytes(2) 

UNTIL dest_size=src_size AND disk_id(0)=disk_id(l) 

OPEN #fdj3ath,fd_namf"@":UPDATE 

callcode:=$8D 

regs . a : =f d_path 

regs.b:=$00 

regs . X : =ADDR( op t ions ) 

RUN syscall(callcode,regs) 

options(8):=l 

callcode:=$8E 

regs.a:=fd_path 

regs. b: =$00 

regs . X : =ADDR( op t ions ) 

RUN sy sea iKcallcode, regs) 

SEEK #hdj3ath,.0 

FOR count=l TO chunk_total 

GET #hd_j)ath, chunk 

PUT #fd_j)ath, chunk 

NEXT count 

VWILE NOr(B0F(#hdj3ath)) DO 

GET #hd_path, sector 
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PUT #fd__path, sector 

ENDWHILE 

CLOSE #hdj3ath 

DELETE hd_nanH-fd_namf".tennp" 

PRINT "Sectors copied: "; src_size 

PRINI "Verify pass.., please wait." 

ON ERROR OOnO 1000 

SEEK #fd_jDath,.0 

FOR count=0 TO src_size-l 

GEI #fdjDath, sector 

100 

NEJCr count 

CLOSE #f djjath 

PRINT 'Verify errors: "; error_count 

PRINT 

END 

1000 PRINT #2, "Error #"; ERR; 

error_count : =error_count+l 

GOTO 100 

oooooocKXX)0000000000oooooooooo 

A Fern in C 

You may remember, quite seme time ago, we printed a screen. He used a mathematical routine to plot the 
few progranmes written by Mr. Ted Martin, of which points on the fern pattern. Well, here it is again, 
one was a prograntne to draw a fern on a graphics only this time in C. 

/* 

PROGRAM TO GENERATE THREE DIMENSIONAL IIERAIED 
FUNCTION SYSTEMS. Printed in Fractal Progranroing 
in C writen by Roger T. Stevens, M&T Publishing 
Inc. Ported to the Color Cotputer by Marty Criswell 

#include <stdio.h> /* this header is in the DEFS dir */ 

#include <jnath.h> /* this header with the kreiderlib.l */ 

#include <os9.h> /* this header is in the DEFS dir */ 

#include <buffs.h> /* this header is on rtultivue disk */ 

#include <wind.h> /* this header is on nrultivue disk */ 

#include <lowio.h> /* for this file see our PD library */ 

int LINEWI0IH,OPERATCR,XCENIER,YCENIER,ANG3UE:; 

long PATTERN; 

int adapt, mode; 

int j, k, index, xscale,yscale,xoffset,yoffset,pr,p[4] ,pk[4] ; 

int hues[8] = {2,10,11,14}; 

unsigned i; 

float a[4] ,b[4] ,c[4] ,d[4] ,e[4] ,f [4] ,g[4] ,h[4] ,m[4] ,n[4] ,q[4] ,r[4] , 

ca,cb,cg,sa,sb,sg,x,y,z,newx,newy,alpha[4] = {30,45,15,95}, 

beta[4] - { 115, 105, 70,40}, gamna [4m 25, 70, 20,-30}; 

f loat rad_per_degree=0 . 0174533 ; 
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int path=STD(Xrr; 
char ch; 

mainO 

< 

DWEnd(path); 

DWSet(path,7,0,0,80,24,2,l,l); /* window set up */ 

CurOff(path); 

Palette(path,0,36); 

Palette(path,2,7); 

Palette(path,l,0); 

Select(path); 



^[0] 


= 0; a[l] 


b[0] 


= 0; b[l] 


c[0] 


= 0; c[l] 


d[0] 


= 0; d[l] 


e[0] 


= .18; e[ 


f[0] 


= 0; f[l] 


g[0] 


= 0; g[l] 


h[0] 


= 0; h[l] 


m[0) 


= 0; m[l] 


n[0] 


= 0; n[l) 


q[0] 


= 0; q[l) 


r[0] 


= 0; r[l] 


p[0] 


= 328; p[ 



= .83; a[2] = .22; a[3] = -.22; /* fractal parameters */ 
= 0; b[2] = -.23; b[3] = .23; 
= 0; c[2] =0; c[3] =0; 
= 0; d[2] = .24; d[3] = .24; 
1] = .86; e[2] = .22; e[3] = .22; 
= .1; f[2] =0; f[3] =0; 
= 0; g[2] = 0; g[3] = 0; 
= -.12; h[2] = 0; h[3] = 0; 
= .84; m[2] = .32; m[3] = .32; 
= 0; n[2] = 0; n[3] = 0; 
= 1.62; q[2] = .82; q[3] = .82; 
= 0; r[2] = 0; r[3] = 0; 
1] = 27879 ; p[2] = 30173; p[3] = 32767; 
xscale = 40; 
y scale = 33; 
xoffset = 60; 
yoffset = -125; 

for (indexrO; index<4; index++) 
< 

ca = cos(alpha[index]*0. 0174533); 
cb = cos(beta[index]*0. 0174533); 
eg = cos (ganTTia[ index] *0. 0174533); 
sa = sin(alpha[index]*0. 0174533); 
sb = sin(be ta[ index] *0. 0174533); 
sg = sin(gainna [ index] *0. 01 74533); 

index=l index=3 ? FColor(path,0) : FColor(path,2); 
ijnage_draw( ) ; 
} 

fscanf(STDIN/'%c",&ch); /* changed 'scanf' to 'fscanf' here. ED */ 

EWEnd(path); /* reset window */ 

DWSet(path,2,0,0,80,24,0, 1 , 1) ; 
Palette(path,0,63); 
Palette(path,l,l); 
} 



iimge_draw( ) 

{ 

int px,py; 
float vXjVy; 



/* calculate the points to draw */ 



X = 
y = 

2 = 
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for (i=l; i<= 10000; i-t-h) 
{ 

j = randO; 

k = (j < p[0]) 7 : ((j < p[l]) 7 1 : ((j < p[2]) ? 2 : 3)); 

newx = (a[k]* x + b[k] * y + c[k] * z + n[k]); 

newy = (d[k] * x + e[k] * y + f [k] * z + q[k]); 

z = g[k] * X + h[k] * y + m[k] * z + r[k] ; 

X = newx; 

y = newy; 

vx = x*ca + y*cb + 2*cg; 

px = V3<*xscale + xoffset; 

vy = x*sa + y*sb + 2*sg; 

py = (vy^scale + yoffset); 

if ((px>=-320) && (px<320)&& (py>=-192) && (py<192)){ 
plots (px,py,hues[index]); 

> 



plots(x, y, color) 

{ 



/* put the point on the screen */ 



#define convert(x,y) {x = (x + 319); y = (88 - ((93*y) » 7));) 

Select (path); 
convert (x,y); 
Point ( pa th,x,y); 

> 

ococKX)ooooOOOOOOOOCOoooooooooo 

/\ 

/ w \ 
/ \ 

\ OZ - 0S9 / 

\_ — W 

o 

The National 0S9 Usergroup 

(07)-200-9870 

300/1200/2400 baud. 

20:00 to 22:30 HE^.(AEST) 

(8N1) 

Co-ordinator: Bob Devries (07)-278-7209 
Sysop: Rod Hoi den 



This is (RiBBS) A Tandy Coco Based BBS program. 

This BBS is accessable to Usergroup Menfcers ONLY! 
Feel free to look around , and test out the options. 

0S9 for E>rer ! M ! 



Hi, this is your Sysop once again letting you knew what type of software is available. Here is the 
document on a programne called Lotto for all you people who need seme help in selecting which nurijers to 
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cross off. 

Lono 0S9 Lcmo 

NAME 

Lotto - hvjnorous lottery minber picking game 
SYNOPSIS 

Lotto [-options] 

DESCRIPnON 

Lotto is a lotto nunnber selection game. It is dene in a scmewhat satirical fashion somewhere between 
evangelism and random selection. 

The '-t' option sets the top of the nurber range for selection. The default is 49; 

The '-b' option sets the bottom of the mirber range for selection. The default is 1. 

The '-n' option sets the number of numbers to be selected. The default is 6. 

The '-a' option sets the nurber of *real people testimonials' you wish to hear from previous lotto 
winners . 

The '-?' and *-h' options both provide brief help messages. 
EXAMPLES 

Lotto 

Plays lotto with defaults 

Lotto -t99 -^1 -a3 

Plays lotto with a top nurber of 99, picks 7 mnnbers, and gives 3 testimonials. 
SEE ALSO 

Psychic (This program is available also.) 

Message Menu Area 

If any user is running a BBS, could you please send 

Just a short note to let users know that when me your details I will make up a list and place it 

and if you decide to leave a message for other on the QZ-0S9 BBS, remember, users only. See you in 

users, please use the Local message menu because the the bit stream, Happy CoCoing. 
other message menus are for when we connect to 

outside BBS's. All you have to do is follow the Sysop 

prompts and you will be able to leave your message Rod Holden 
or messages. 

ooooooooooOOCOOOOCOOoooooooooo 
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SUBSCRIPTION RENEWAL / APPLICATION 



Subscription Renewal [ ] 



New Subscription [ ] 



Surname 



First Name : 



Title 



Street 



Suburb: 



State : 



Postcode 



Country: 



Home Phone: 



Business Phone: 



Age Group (please tick) Under 18 [ ] 

36-45 [ ] 



18-25 [ ] 26-35 [ ] 

46-55 [ ] over 55 [ ] 



Do you run 0S9 Level 1[ ] 0S9 Level 2[ ] OSK[ ] OS9000[ ] 



Type of Computer for 0S9 : 



RAM 



K 



Diskette 5*25 Number [ ] Tracks [ ] Sides [ ] 

Diskette 3.5 Number [ ] 720k [ ] 1.4meg [ ] 

Hard Drive Meg [ ] Controller Type 

Printer Type/Model 

Modem Type \ , 

Special Interests 



Can you contribute articles to this Newsletter ? 



Date 



/ /. 



Signature 



Amount Enclosed: $ 



( $18-00 will cover you for 12 months ) 

( A$25-00 Overseas ) 
(CHEQUES PAYABLE TO: NATIONAL OS9 USERGROUP) 



Please Return Completed Form to :- 



NATIONAL OS9 USERGROUP 
c/o GORDON BENTZEN 
8 ODIN STREET 
SUNNYBANK QLD 4109 



OR 



NATIONAL OS9 USERGROUP 
c/o J. P. JACQUET 
27 HAMPTON STREET 
DURACK QLD 4077 



